10 PRINTCHR$(147)CHR$(8);:POKE53280,.:POKE53281,0
15 FORC=8TO15:POKE53281,C:PRINT"";:PRINTCHR$(14):POKE53270,24
20 PRINT"[145][145][145][145][145]  *[145]  *     *                    ";:POKE646,C*2
21 PRINT"[157][157][157][157][157]*[157][157][157]                              *        ";"    *    *    "
22 PRINT"                                       *"  :POKE646,C+C:
23 PRINT"                    *     *       *     ";:POKE646,C/4
24 PRINT"[157][157][157][157]*[157][157][157][157][157]    *         *      *   *              ";:POKE646,C*5
25 PRINT"[145]**               *    *    *       *      ";"          "
30 POKE646,RND(C)*(C-5)+1:POKE53281,RND(2)*(48-16)+C:POKE646,PEEK(53280)
35 K$="       [193] U S   U N D   [214] O R B E I  ":PRINTK$:GOSUB100
40 :POKE646,PEEK(53281):NEXT:GOSUB100
42 :PRINT"[147]":PRINTK$
43 POKE53281,.:FORZ=1TO300:NEXT:PRINT"[147][159]":PRINTK$:POKE56325,1
45 PRINT"[156]    [194]IS ZUR NAECHSTEN [196]ISK![157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
46 FORZ=1TO1750:NEXT:POKE56325,58:     SYS58253
100 POKE54296,15:POKE54278,49:POKE54276,17:S=54294:M=54286
101 FORT=40TO50:POKE54273,12+ABS( 5-T):POKES+4,129:POKES+11,129:POKES+18,17
102 POKEM+4,129:POKEM+11,129:POKEM+18,129:POKE54284,87
103 NEXT:POKE54296,0:  RETURN